{-# LANGUAGE TemplateHaskell #-}

module MyMath.CompTest where
import Data.Complex
import MyTools.MyMacros

te0 :: IO ()
te0 = do
    $(_myLoc' red yellow)  -- 自定义颜色
    $(_myLocA)
    $(_myLoc)  -- 使用默认颜色    
    putStrLn "Hello, Haskell!"
    putStrLn . show $ atanh (1.2 :+ 2e7)
    putStrLn . show $ atan (inf :+ 0)
  where
    inf = 1 / 0